home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbinst13 / vbinst.gbl < prev    next >
Text File  |  1992-09-01  |  2KB  |  43 lines
  1. DefInt A-Z
  2.  
  3. 'Declaration for checking disk's free space. DLL which comes with VBINST.
  4. 'Turbo Pascal for Windows source code included.
  5. Declare Function DFree Lib "vbinst.dll" (ByVal Disk As Integer) As Long
  6.  
  7. 'API Declarations
  8. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal WD As String, ByVal nWSize As Integer) As Integer
  9. Declare Function GetSystemDirectory Lib "Kernel" (ByVal WSD As String, ByVal nSSize As Integer) As Integer
  10. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplication As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal FileStr As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  11. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplication As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  12.  
  13. 'misc const
  14. Global Const TRUE = -1
  15. Global Const FALSE = 0
  16. Global Const IDYES = 6  'define msgbox return value
  17.  
  18. 'Color const for vbinst
  19. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  20. Global Const APPLICATION_WORKSPACE = &H8000000C
  21. Global Const WINDOW_TEXT = &H80000008  ' Text in windows.
  22.  
  23. 'misc variables
  24. Global SD As String   'source dir
  25. Global WD As String   'windows dir (see form load procedure)
  26. Global WSD As String  'windows system dir  (see form load procedure)
  27. Global WarnFlag As Integer 'flag to overwrite warning
  28.  
  29. 'variables for checking diskspace
  30. Global LoadDir As String 'form load default dest dir
  31. Global DestDrive As String 'chosen drive to check free diskspace
  32.  
  33. 'variables for reading private ini file (install.inf)
  34. Global nSize As Integer
  35. Global lpFileName As String
  36. Global FileStr As String * 128 'must use fixed-lenght variable because DLL's return
  37.  
  38. 'variables for FileCopy and IniCopy
  39. Global source As String  'source file
  40. Global Dest As String    'destination file
  41. Global DestDir As String 'destination dir for program files
  42.  
  43.